﻿Imports BUS

Public Class frmThongTinTaiKhoan

    Private Sub frmThongTinTaiKhoan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim dt As DataTable = TaiKhoan_BUS.loadInfo(frmDangNhap.user)


        lblTenTK.Text = frmDangNhap.user
        lblMatKhau.Text = frmDangNhap.pass
        With dt
            For Each r As DataRow In dt.Rows
                lblTrangThai.Text = r(0).ToString
                lblLoaiTK.Text = r(1).ToString
            Next
        End With
    End Sub
End Class